# Create a 3x3 PPM
A <- matrix(c(0,1,2,0.5,0.1,0,0,0.6,0.6), byrow=TRUE, ncol=3)
A
# Create an initial stage structure
initial <- c(1,3,2)
initial
# plot stage-biased dynamics of A over 70 intervals using
# standardised dynamics and log y axis
plot(project(A,time=70,standard.A=TRUE,standard.vec=TRUE),
log="y",ylab="Years",xlab="Density")
# plot a projection of a specified initial stage structure
# for 10 intervals
plot(project(A,vector=initial,time=50))
Run the code above in your browser using DataLab